home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / mathpack.arc / D.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-08  |  771 b   |  18 lines
  1. 10  CLS
  2. 20  KEY OFF
  3. 30  COLOR 7,0
  4. 40  WIDTH 80
  5. 50  DEF SEG = 0: POKE 1050,PEEK(1052)
  6. 60  LOCATE 1,30:PRINT "D I V I S I O N   T U T O R I A L"
  7. 70  LOCATE 5,2:PRINT " This section will guide you through the DIVISION section of M A T H  P A K."
  8. 80  LOCATE 6,2:PRINT " This section will divide any two numbers, not necessarily being integer values."
  9. 90  LOCATE 8,2:PRINT " EXAMPLE: "
  10. 100  LOCATE 9,2:PRINT " To divide  45.608   by  6.89, enter the value 45.608 for the numerator(top),"
  11. 110  LOCATE 10,2:PRINT "and then press <RETURN>. Then, enter the value 6.89 for  denominator (bottom),"
  12. 120  LOCATE 11,2:PRINT "and press <RETURN>. A quotient will return below that."
  13. 130  LOCATE 12,2:PRINT " A value of 0 for numerator will return to main menu."
  14. 140  LOCATE 20,2:PRINT "Press the S P A C E  B A R to return to disk tutorial..."
  15. 150  S$ =INKEY$:IF S$ =" " THEN CLS:CLEAR:CHAIN"a"
  16. 160  GOTO 150
  17. 170  END
  18.